﻿Module Module1
  Sub Main()
    Dim i As Integer = 0
    Dim counter As New Contatore
    Do While i < 100
      i = counter.Leggi
      Console.WriteLine(i)
    Loop
    Console.ReadLine()
  End Sub
End Module
